home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00053_Splash screen.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  1.2 KB  |  54 lines
  1. cursor(4)
  2. updateStage()
  3. setType()
  4. if gType = #MAC then
  5.   set the exitLock to 1
  6. end if
  7. if the colorDepth <> 8 then
  8.   set the colorDepth to 8
  9. end if
  10. if the colorDepth < 8 then
  11.   alert(field "8 Bit Color")
  12.   goQuit()
  13.   return 
  14. end if
  15. if gType = #PC then
  16.   set dllFile to FileIO(mnew, "read", the pathName & "trsxobj.dll")
  17.   if not objectp(dllFile) then
  18.     alert("DLL file 'TRSXOBJ.DLL' is missing. Please see the Installation Notes for more information.")
  19.     goQuit()
  20.     return 
  21.   end if
  22.   dllFile(mdispose)
  23.   openXLib("TRSXOBJ")
  24.   set gXobj to trsxobj(mnew)
  25.   if not objectp(gXobj) then
  26.     alert("Missing DLL: TRSXOBJ.DLL")
  27.   end if
  28. else
  29.   set gXobj to TRSEncrypt(mnew)
  30. end if
  31. initMouseTrap()
  32. initGlobals()
  33. if readConfig() then
  34.   set gStuInfo to [#name: "GUEST"]
  35.   readprefs()
  36.   set gFirstScreen to "selectStart"
  37. else
  38.   set gStuInfo to [#name: EMPTY]
  39.   loadServerLists()
  40.   set gFirstScreen to "login"
  41. end if
  42. set the keyDownScript to "handleKey"
  43. when mouseDown then handleMouse
  44. put " " into field "PageCatalog"
  45. set gPerPage to -1
  46. set didLoad to loadCD()
  47. cursor(-1)
  48. if (gFirstScreen = "selectStart") and (gAnnounceText <> EMPTY) then
  49.   set gFirstScreen to "announce screen"
  50. end if
  51. if didLoad = 1 then
  52.   go(gFirstScreen)
  53. end if
  54.